home *** CD-ROM | disk | FTP | other *** search
/ Red Eye Press Kit / Red Eye Press Kit.iso / pc / main.dxr / SCRIPTS_61_slideShow.ls < prev    next >
Encoding:
Text File  |  2005-07-18  |  587 b   |  27 lines
  1. property xSprite, xLib, slide, slideTimer
  2.  
  3. on beginSprite me
  4.   xSprite = me.spriteNum
  5.   xLib = "PREVIEWS"
  6.   slide = 1
  7.   puppetSprite(xSprite, 1)
  8.   sprite(xSprite).member = member(member("captions").text.word[slide], xLib)
  9. end
  10.  
  11. on exitFrame me
  12.   slideTimer = slideTimer + 1
  13.   if slideTimer > 90 then
  14.     slideTimer = 0
  15.     slide = slide + 1
  16.     if slide > the number of castMembers of castLib xLib then
  17.       slide = 1
  18.     end if
  19.     sprite(xSprite).member = member(member("captions").text.word[slide], xLib)
  20.     updateStage()
  21.   end if
  22. end
  23.  
  24. on endSprite me
  25.   puppetSprite(xSprite, 0)
  26. end
  27.